home *** CD-ROM | disk | FTP | other *** search
/ Sacred & Secular / Sacred and Secular.iso / pc / movies / shared.dir / 04840_Script__FullPic Frame FullPic Frame.ls < prev    next >
Text File  |  1996-04-03  |  3KB  |  123 lines
  1. global currentcast
  2. on exitFrame
  3.   global gTimerCast, gGuidedTourInProgress, gMeanderInProgress
  4.   
  5.   if gTimerCast <> currentCast then
  6.     set gTimerCast = currentCast
  7.     startTimer
  8.   end if
  9.   
  10.   if gGuidedTourInProgress then 
  11.     guidePics
  12.   else if gMeanderInProgress then
  13.     checkMeander
  14.   else
  15.     planerollover2 
  16.   end if
  17.   
  18.   go the frame
  19. end
  20.  
  21. -- check if spacebar was pressed,if so highlight title
  22.  
  23. -- DMD TBD ??? change to use the proper cast member for the title
  24.  
  25. on keydown
  26.   global gGuidedTourInProgress
  27.   
  28.   if gGuidedTourInProgress then 
  29.     if the keyCode = 123 then
  30.       guidePics(-2)
  31.       exit
  32.     else 
  33.       if the keyCode = 124 then
  34.         guidePics(0) 
  35.         exit  
  36.       end if
  37.     end if
  38.   end if
  39.   
  40.   if the keyCode = 123 then swapPic(0,2)
  41.   else if the keyCode = 124 then swapPic(1,2)
  42.   else if the keycode = 49 then
  43.     set the regPoint of cast 5 = point(0,0)
  44.     if the locH of sprite 7 = -640 then
  45.       puppetSprite 7, 1
  46.       set the type of sprite 7 = 1
  47.       set the forecolor of sprite 7 = 255
  48.       set the backcolor of sprite 7 = 0
  49.       set the loch of sprite 7 to 5
  50.       set the locv of sprite 7 to 452
  51.       set the castNum of sprite 7 = 5
  52.       updatestage
  53.     else
  54.       set the loch of sprite 7 to -640
  55.     end if
  56.   else pass
  57. end 
  58.  
  59. on mouseDown
  60.   global gGuidedTourInProgress
  61.   --
  62.   --
  63.   -- Wait X ticks until memory "settles down"
  64.   --
  65.   global gPauseWendy -- named for WendyMartin (her suggestion)
  66.   global musicOn, NarrOn
  67.   
  68.   if gGuidedTourInProgress then 
  69.     --
  70.     --
  71.     -- Check for proximaty to pink arrows
  72.     --
  73.     
  74.     
  75.     if (40+the mouseV) > the top of sprite 5 then
  76.       if (the mouseH - 40) < the right of sprite 4 then 
  77.         guidePics(-2)
  78.         exit
  79.       else if (the mouseH + 40) > the left of sprite 5 then 
  80.         guidePics(0) 
  81.         exit
  82.       end if
  83.     end if
  84.     
  85.     stopQTSound
  86.     sound stop 1
  87.     
  88.     set gGuidedTourInProgress = 0
  89.     
  90.     go to frame "guide" of movie "BRIDGES"
  91.     
  92.     
  93.     exit
  94.   end if
  95.   
  96.   if the timer < gPauseWendy and (musicOn or NarrOn) then exit
  97.   
  98.   if the doubleclick then dontpassevent
  99.   
  100.   set h = the mouseH
  101.   
  102.   if h < 20 then
  103.     swapPic(0,2)
  104.     exit
  105.   else if h > 620 then
  106.     swapPic(1,2)
  107.     exit
  108.   else
  109.     set v = the mousev
  110.     
  111.     cursor 4
  112.     if the shiftDown then
  113.       goCaption2  
  114.     else
  115.       PositionBigPic(h,v)
  116.     end if
  117.     cursor -1  
  118.   end if
  119. end if
  120.  
  121.  
  122.  
  123.